unit Con_Produto2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Formulario_Padrao_Consulta, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids,
  Db,Dbtables, TFlatButtonUnit;

type
  TFrmCon_Produto2 = class(TFrmConsulta)
    Label1: TLabel;
    EdtDescricao: TEdit;
    DbgProduto: TDBGrid;
    p_ordem: TRadioGroup;
    Label2: TLabel;
    procedure EdtDescricaoKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure p_ordemClick(Sender: TObject);
  private
    { Private declarations }
    procedure FazConsulta;
  public
    { Public declarations }
    Pro_codigo : String;
  end;

var
  FrmCon_Produto2: TFrmCon_Produto2;

implementation

Uses Dm, Biblio, clsProduto;

{$R *.DFM}

var Produto: TProduto;
    tds    : Tdatasource;
    tq     : Tquery;


procedure TFrmCon_Produto2.EdtDescricaoKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
 if key=12 then FazConsulta;
end;

procedure TFrmCon_Produto2.FormActivate(Sender: TObject);
begin
  inherited;
 EdtDescricao.text    := '';
 tq.databasename      := dmint.db.databasename;
 tq.active            := False;
 tds.DataSet          := tq;
 dbgProduto.DataSource:= tds;
 fazconsulta;
end;

procedure TFrmCon_Produto2.FazConsulta;
begin
 if EdtDescricao.text='' then
  Produto.Consultar(' ',p_ordem.itemindex,false,tq,'')
 else
  Produto.Consultar(EdtDescricao.text,p_ordem.itemindex,false,tq,'');
 tq.open;
 dbgProduto.Refresh;
end;

procedure TFrmCon_Produto2.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
 Pro_codigo:=tq.fieldbyname('Pro_codigo').asstring;
end;

procedure TFrmCon_Produto2.FormDestroy(Sender: TObject);
begin
  inherited;
 produto.free;
 tds.free;
 tq.free;
end;

procedure TFrmCon_Produto2.FormCreate(Sender: TObject);
begin
  inherited;
 Produto:= TProduto.Create;
 tds    := TDataSource.create(self);
 tq     := Tquery.create(self);
end;

procedure TFrmCon_Produto2.p_ordemClick(Sender: TObject);
begin
  inherited;
 FazConsulta;
end;

end.
